約 2,648,101 件
https://w.atwiki.jp/hajimen/pages/53.html
class newXMLDialog(wx.Dialog) def __init__(self, parent, id) title = test dialog wx.Dialog.__init__(self, parent, id, title, size=(200, 180)) panel = wx.Panel(self, -1) vbox = wx.BoxSizer(wx.VERTICAL) noteTxt=wx.StaticText(self,-1,u"",size=(180, -1)) systemTxt = wx.StaticText(self, -1, u"System ", size=(50, -1), style = wx.ALIGN_RIGHT) systemList = [ win32 , darwin , linux , linux2 ] self.systemCtrl = wx.ComboBox(self, -1, win32 , choices = systemList, size = (100, -1), style = wx.CB_DROPDOWN ) nameTxt = wx.StaticText(self, -1, u"Name ", size=(50, -1), style = wx.ALIGN_RIGHT) self.nameCtrl = wx.TextCtrl(self, -1, newName , size = (100, -1)) sizer = wx.FlexGridSizer(cols=2, hgap=4, vgap=4) sizer.AddMany([ systemTxt, self.systemCtrl, nameTxt, self.nameCtrl, ]) # Button hbox = self.CreateButtonSizer(wx.OK|wx.CANCEL) vbox.Add(panel) vbox.Add(noteTxt, 1, wx.ALIGN_CENTER) vbox.Add(sizer, 1, wx.ALIGN_CENTER) vbox.Add(hbox, 1, wx.ALIGN_CENTER | wx.TOP, 10) self.SetSizer(vbox) def GetSystem(self) return self.systemCtrl.GetValue() def GetName(self) return self.nameCtrl.GetValue() 呼び出し部分は普通のダイアログと同じです。 CreateButtonSizerを使うとwx.ID_OKとか返り値を得ることができるので楽です。 他の値もこんな感じでGetできます。 if dlg.ShowModal() == wx.ID_OK print dlg.GetSystem() print dlg.GetName() dlg.Destroy()
https://w.atwiki.jp/uwvd/pages/297.html
#8月12日付 #一部ダイアログを追加 #姉妹のかけ声関連で少し微妙に変更している以外は 、メッセと同様にアルカナハートまとめ@Wiki #からの台詞集を参考にしています 。 #この場を借りて 、お礼申し上げます。 春日舞織 街風駆け 春日舞織, 姉さん! 春日鼓音, 任せろ! 雷呻落とし 春日舞織, ここよ! 春日鼓音, そこかっ! 飛計路翔け 春日舞織, 小糸! 春日小糸, はーい! 飛計路翔け 春日舞織, 小糸! 春日小糸, 頑張れー! 飛計路翔け 春日舞織, 小糸! 春日小糸, 飛んでけー! 飛計路翔け 春日舞織, 小唄! 春日小唄, はーい! 飛計路翔け 春日舞織, 小唄! 春日小唄, 頑張れー! 飛計路翔け 春日舞織, 小唄! 春日小唄, 飛んでけー! 破魔の獅子吼 春日舞織, 姉さん! お願い! 春日鼓音, どけぇ! 六合崩拳! 破魔の獅子吼 春日舞織, 姉さん! お願い! 春日鼓音, どけぇ! 北斗尊星! 退魔の瑞鶴 春日舞織, 小糸! 小唄! 春日小糸, 行くよー! 断絶妖精! 春日小唄, 断絶妖精! 神来社の矢・神座 春日小糸, 降臨真気! 春日小唄, 降臨真気! 春日舞織, 急急如律令! 射程外 春日小糸, ぶーぶー 春日小唄, ずるいー 春日舞織, こら、無茶言わないの 春日鼓音, 舞織はよくやった 安栖頼子 ダメージ小 ミケ(アルカナ), ハッハッハー! 貴様らが何匹かかってこようと我輩に敵う事などありえんわっ! ダメージ中 ミケ(アルカナ), フギーッ! ダメージ中 ミケ(アルカナ), ギャーッ! ダメージ中 ミケ(アルカナ), おい、頼子。 我輩に平伏せん愚か者がいる限り、今日は戦い続けるぞ! ダメージ大 ミケ(アルカナ), 貴様! 真の魔王である我輩の威厳を失墜させる気かッ! 射程外 ミケ(アルカナ), こっ、この無礼者が! 射程外 安栖頼子, えーっ! うそーっ! 破壊 安栖頼子, いやぁぁぁぁっ… ミケ(アルカナ), 無礼な! 破壊 安栖頼子, ミケぇぇぇ…! ミケ(アルカナ), 頼子ぉぉぉっ!! 攻撃(とどめ)(対強敵) ミケ(アルカナ), 足りん、足りんわっ! この程度では我輩ちっとも暴れた気にならんわっ! 噴き上がる奈落の苦悶 安栖頼子, 行かないでぇぇっ! ミケ(アルカナ), ここかぁっ!! 襲い来る地獄の制裁 ミケ(アルカナ), ひれ伏せッ! 襲い来る地獄の制裁 ミケ(アルカナ), 頭が高いわっ! 降り注ぐ魔界の報復 ミケ(アルカナ), くたばれっ! 古のタリズマン ミケ(アルカナ), ビーム! 安栖頼子, 門を開けよ 生死を御する禁忌の魔術 ミケ(アルカナ), 頼子ッ、今、助けてやるぞ! 生死を御する禁忌の魔術(命中) 安栖頼子, やだっ、何かが入ってくる…!?;あああぁぁ…ッ!! 世界を統べる魔王の威光 ミケ(アルカナ), 崇めよ! 世界を統べる魔王の威光(命中) 安栖頼子, ミケ、どうしちゃったの!? ミケ(アルカナ), 平伏せんか、愚か者!! リーゼロッテ=アンヒェンバッハ エルフリーデ エルフリーデ(アルカナ), ギギギッ エルフリーデ エルフリーデ(アルカナ), ギギッ!! エルフリーデ エルフリーデ(アルカナ), クククッ エルフリーデ エルフリーデ(アルカナ), ケケケッ!! ヴェルトは残酷で エルフリーデ(アルカナ), ギギギッ ヴェルトは残酷で エルフリーデ(アルカナ), ギギッ!! ヴェルトは残酷で エルフリーデ(アルカナ), クククッ 死に誘うゲベル リーゼロッテ=アンヒェンバッハ, なぶり殺してやる…… エルフリーデ(アルカナ), もっともっと苦しめ! ベトルークの朱い涙 リーゼロッテ=アンヒェンバッハ, 言い残すこと、ないよね エルフリーデ(アルカナ), いい声で泣けェ! クラリーチェ=ディ=ランツァ イル・クローマ クラリーチェ=ディ=ランツァ, 我は汝を喚び起さん…以下省略 クロマシアス(アルカナ), 手順は守れよな…… 燃え尽きろ!! アンジェリア=アヴァロン ディヴァインブレス アンジェリア=アヴァロン, あいつ死刑……ミルド、やっちゃえ! 姉ちゃんが許すぞ! ミルドレッド=アヴァロン, 新たなる世界の為、神の息吹を受けよ!
https://w.atwiki.jp/draemonash/pages/70.html
ここを編集 フォルダ選択 ================================================================== = 概要 フォルダ選択ダイアログを表示する = 引数 sInitPath String [in] デフォルトフォルダパス(省略可) = 戻値 String フォルダ選択結果 = 覚書 なし ================================================================== Private Function ShowFolderSelectDialog( _ Optional ByVal sInitPath As String = "" _ ) As String Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFolderPicker) fdDialog.Title = "フォルダを選択してください" If sInitPath = "" Then Do Nothing Else If Right(sInitPath, 1) = "\" Then fdDialog.InitialFileName = sInitPath Else fdDialog.InitialFileName = sInitPath "\" End If End If ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ShowFolderSelectDialog = "" Else Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems.Item(1) If CreateObject("Scripting.FileSystemObject").FolderExists(sSelectedPath) Then ShowFolderSelectDialog = sSelectedPath Else ShowFolderSelectDialog = "" End If End If Set fdDialog = Nothing End Function Private Sub Test_ShowFolderSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") MsgBox ShowFolderSelectDialog( _ objWshShell.SpecialFolders("Desktop") _ ) End Sub ファイル選択 ================================================================== = 概要 ファイル(単一)選択ダイアログを表示する = 引数 sInitPath String [in] デフォルトファイルパス(省略可) = 引数 sFilters String [in] 選択時のフィルタ(省略可)(※) = 戻値 String ファイル選択結果 = 覚書 (※)ダイアログのフィルタ指定方法は以下。 = ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv = ・拡張子が複数ある場合は、";"で区切る = ・ファイル種別と拡張子は"/"で区切る = ・フィルタが複数ある場合、","で区切る = sFilters が省略もしくは空文字の場合、フィルタをクリアする。 ================================================================== Private Function ShowFileSelectDialog( _ Optional ByVal sInitPath As String = "", _ Optional ByVal sFilters As String = "" _ ) As String Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFilePicker) fdDialog.Title = "ファイルを選択してください" fdDialog.AllowMultiSelect = False If sInitPath = "" Then Do Nothing Else fdDialog.InitialFileName = sInitPath End If Call SetDialogFilters(sFilters, fdDialog) フィルタ追加 ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ShowFileSelectDialog = "" Else Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems.Item(1) If CreateObject("Scripting.FileSystemObject").FileExists(sSelectedPath) Then ShowFileSelectDialog = sSelectedPath Else ShowFileSelectDialog = "" End If End If Set fdDialog = Nothing End Function Private Sub Test_ShowFileSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") Dim sFilters As String sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" sFilters = "" MsgBox ShowFileSelectDialog( _ objWshShell.SpecialFolders("Desktop") "\test.txt", _ sFilters _ ) MsgBox ShowFileSelectDialog( _ objWshShell.SpecialFolders("Desktop") "\test.txt" _ ) End Sub ================================================================== = 概要 ファイル(複数)選択ダイアログを表示する = 引数 asSelectedFiles String() [out] 選択されたファイルパス一覧 = 引数 sInitPath String [in] デフォルトファイルパス(省略可) = 引数 sFilters String [in] 選択時のフィルタ(省略可)(※) = 戻値 なし = 覚書 (※)ダイアログのフィルタ指定方法は以下。 = ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv = ・拡張子が複数ある場合は、";"で区切る = ・ファイル種別と拡張子は"/"で区切る = ・フィルタが複数ある場合、","で区切る = sFilters が省略もしくは空文字の場合、フィルタをクリアする。 ================================================================== Private Function ShowFilesSelectDialog( _ ByRef asSelectedFiles() As String, _ Optional ByVal sInitPath As String = "", _ Optional ByVal sFilters As String = "" _ ) Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFilePicker) fdDialog.Title = "ファイルを選択してください(複数可)" fdDialog.AllowMultiSelect = True If sInitPath = "" Then Do Nothing Else fdDialog.InitialFileName = sInitPath End If Call SetDialogFilters(sFilters, fdDialog) フィルタ追加 ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ReDim Preserve asSelectedFiles(0) asSelectedFiles(0) = "" Else Dim lSelNum As Long lSelNum = fdDialog.SelectedItems.Count ReDim Preserve asSelectedFiles(lSelNum - 1) Dim lSelIdx As Long For lSelIdx = 0 To lSelNum - 1 Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems(lSelIdx + 1) If CreateObject("Scripting.FileSystemObject").FileExists(sSelectedPath) Then asSelectedFiles(lSelIdx) = sSelectedPath Else asSelectedFiles(lSelIdx) = "" End If Next lSelIdx End If Set fdDialog = Nothing End Function Private Sub Test_ShowFilesSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") Dim sFilters As String sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" sFilters = "全てのファイル/*.*,画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" Dim asSelectedFiles() As String Call ShowFilesSelectDialog( _ asSelectedFiles, _ objWshShell.SpecialFolders("Desktop") "\test.txt", _ sFilters _ ) Dim sBuf As String sBuf = "" sBuf = sBuf vbNewLine UBound(asSelectedFiles) + 1 Dim lSelIdx As Long For lSelIdx = 0 To UBound(asSelectedFiles) sBuf = sBuf vbNewLine asSelectedFiles(lSelIdx) Next lSelIdx MsgBox sBuf End Sub ShowFileSelectDialog() と ShowFilesSelectDialog() 用の関数 ダイアログのフィルタを追加する。指定方法は以下。 ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv ・拡張子が複数ある場合は、";"で区切る ・ファイル種別と拡張子は"/"で区切る ・フィルタが複数ある場合、","で区切る sFilters が空文字の場合、フィルタをクリアする。 Private Function SetDialogFilters( _ ByVal sFilters As String, _ ByRef fdDialog As FileDialog _ ) fdDialog.Filters.Clear If sFilters = "" Then Do Nothing Else Dim vFilter As Variant If InStr(sFilters, ",") 0 Then Dim vFilters As Variant vFilters = Split(sFilters, ",") Dim lFilterIdx As Long For lFilterIdx = 0 To UBound(vFilters) If InStr(vFilters(lFilterIdx), "/") 0 Then vFilter = Split(vFilters(lFilterIdx), "/") If UBound(vFilter) = 1 Then fdDialog.Filters.Add vFilter(0), vFilter(1), lFilterIdx + 1 Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ """/"" は一つだけ指定してください" vbNewLine _ " " vFilters(lFilterIdx) MsgBox "処理を中断します。" End End If Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ "種別と拡張子を ""/"" で区切ってください。" vbNewLine _ " " vFilters(lFilterIdx) MsgBox "処理を中断します。" End End If Next lFilterIdx Else If InStr(sFilters, "/") 0 Then vFilter = Split(sFilters, "/") If UBound(vFilter) = 1 Then fdDialog.Filters.Add vFilter(0), vFilter(1), 1 Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ """/"" は一つだけ指定してください" vbNewLine _ " " sFilters MsgBox "処理を中断します。" End End If Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ "種別と拡張子を ""/"" で区切ってください。" vbNewLine _ " " sFilters MsgBox "処理を中断します。" End End If End If End If End Function ファイル選択(パターン2)(未使用) Dim vFilePath As Variant vFilePath = Application.GetOpenFilename( _ Title ="ファイル選択ウィンドウ", _ FileFilter ="エクセルファイル(*.xls),*.xls,CSVファイル(*.csv),*.csv", _ FilterIndex =1, _ MultiSelect =True _ ) If IsArray(vFilePath) Then Debug.Print UBound(vFilePath) Else Debug.Print 0 End If ここを編集
https://w.atwiki.jp/dslua/pages/112.html
構文 editsetText( 文字列 ) 説明 文字入力ダイアログで、既に文字列が入力された状態で文字入力させたい場合、あらかじめ文字列を設定するコマンドです。 引数 文字列 あらかじめセットしたい文字列です。 戻り値 なし ------------------------------------------ -- 文字入力ダイアログであらかじめ文字列を設定のサンプル editsetText_sample.lua ------------------------------------------ function main() local moji, a local addflag canvas.drawCls( color(255,255,255) ) canvas.drawText("入力済み文字列の", 0, 0, 24, color(0,0,0)) canvas.drawText("ダイアログの表示サンプルです。", 0, 26, 24, color(0,0,0)) editsetText( "入力済み文字列" ) addflag = 1 moji, a = editText("文字を入力してください", addflag) if a==1 then -- OKの場合 canvas.drawText("入力した文字は、" .. moji .. " です。", 0, 52, 24, color(0,0,0)) else -- NOの場合 canvas.drawText("文字入力はキャンセルされました", 0, 52, 24, color(0,0,0)) end canvas.drawText("続けて入力するサンプル。", 0, 78, 24, color(0,0,0)) moji,a = editText("続けて文字を入力してください", addflag ) if a==1 then canvas.drawText("入力した文字は、" .. moji .. " です。", 0, 104, 24, color(0,0,0)) else canvas.drawText("文字入力はキャンセルされました", 0, 104, 24, color(0,0,0)) end canvas.drawText("普通の表示サンプルです。", 0, 128, 24, color(0,0,0)) addflag = 0 moji, a = editText("文字を入力してください", addflag) if a==1 then -- OKの場合 canvas.drawText("入力した文字は、" .. moji .. " です。", 0, 154, 24, color(0,0,0)) else -- NOの場合 canvas.drawText("文字入力はキャンセルされました", 0, 154, 24, color(0,0,0)) end canvas.drawText( "画面タッチで終了します", 0,180, 24, color(0,0,0) ) touch(3) end main() 1.起動すると入力済みのダイアログを表示します。OKボタンを押します。 2.すると画面上に「入力したのは、入力済み文字列です。」が表示され、moji変数に値が入ったのが分かります。 3.次に文字列の所をタップして、入力してみます。あらかじめ入力されている文字列を削除します。 4.「テスト」という文字列を入力し、完了ボタンを押します。 5.OKボタンを押します。 6.ダイヤログに隠れて見えませんが、「入力したのは、テストです。」と表示されているはずです。Cancelボタンを押します。 7.画面タッチで終了です。(隠れていたテストの文字列も確認できます。) コメント(最大10行) 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/ohden/pages/234.html
通常だとUAC昇格ダイアログ表示はWindowsの通常のプロセスと分離されているのでPrintScreenでスクリーンショットを撮ることができない。 が、以下の方法をとることで通常のダイアログとしてUAC昇格ダイアログを表示できる。 通常のダイアログとして表示されてしまえばPrintScreenだろうと任意のキャプチャソフトだろうと問題無く動作する。 ~手順~ 1. [スタート]-[管理ツール]-[ローカル セキュリティ ポリシー]を選択して『ローカル セキュリティ ポリシー』を起動させる。 2. ローカルセキュリティポリシーが起動したら左に表示されているツリーから[セキュリティの設定]-[ローカル ポリシー]-[セキュリティ オプション]を選択。 3. 右側に設定Windowが表示されるので『ユーザー アカウント制御 昇格のプロンプト時にセキュリティで保護されたデスクトップに切り替える』をダブルクリック。 4. 開いたwindowで『無効』を選択し、『OK』ボタン押下。 5. キャプチャしたいUACダイアログを表示。 6. [Alt+PrintScreen]を行い、キャプチャ。 e.g.) 例はJavaのコンパネ表示時のもの 7. [ローカル セキュリティ ポリシー]に戻り『3.』で[無効]にした項目を[有効]に変更。 更新日: 2011年01月27日 (木) 10時23分18秒
https://w.atwiki.jp/dslua/pages/102.html
紹介、ありがとうございます。m(_ _)m 戻り値を使わないときは、 dialog("Dialogのサンプル","ダイアログのサンプルです") だけでも、OKです。 a = を省略しても大丈夫です。 -- (たろサ) 2011-08-02 13 20 44
https://w.atwiki.jp/a4000/pages/33.html
瞬断対策(ダイアログ非表示) このレシピは? 瞬断対策のみを目的とした簡易設定レシピです。 慣れれば1分間でいけます。 何が必要? 次のものを用意してください。 Mayonnaiser001+plugins(便利ソフトウェア参照) ファイル配置 \Storage Card(SDカードのルートフォルダ)配下へ以下の構成にて配置します。 [\Storage Card配下] \Storage Card Anygo_org.exe ←オリジナルのAnygo.exeをAnygo_org.exeへリネームしたもの Anygo.exe ←Mayonnaiser.exeをAnygo.exeへリネームしたもの Mayonnaiser.txt Copy.MNP Exec.MNP MsgBox.MNP Tap.MNP Wait.MNP ∟\Storage Card\Copy\ JXACOUT_Dummy.exe ←空のテキストファイルを作成し、ファイル名を変更したもの 個別設定 Mayonnaiser.txt Mayonnaiser.txtにて以下の設定をします。 JXACOUT.exeのダミーファイルコピー 本来ナビゲーションボタン選択したときに起動されるAnygo.exeをリネームしたAnygo_org.exeの起動 [Mayonnaiser.txt]※左の番号は行番号を示します(記述内容ではない) サンプル #####JXACOUT.exeのダミーファイルコピー COPY\Storage Card\Copy\JXACOUT_Dummy.exe\Windows\JXACOUT.exe#ナビゲーションの起動、パラメータ指定なし EXEC\Storage Card\Anygo_org.exe #### End of File ここまでの内容で、設定完了です。 あとはナビゲーションを選択すれば勝手に起動します。 確認は、ACアダプタなりUSBなりを抜き差しすればできます。 以上、瞬断対策レシピでした。 ページ編集[自由] 名前 プロキシを経由している場合は解除してみてください。また、企業などで接続ポートを制限している場合や、海外からの場合は繋がらない可能性があります。どうしても繋がらない場合は solar.a.x+malor@gmail.com までご連絡ください。 - ぽりごん 2008-08-30 16 07 46 セキュリティソフトウェア関係ってことはないでしょうか?一時的に終了させて接続してみるとかどうでしょう。 - bits 2008-08-22 21 45 35 こんにちは。ぽりごんさんのHP、「http //poly-tank.ddo.jp 81/trash/malor/」ですよね?FireFoxでもIEでも接続できましたよ。 - bits 2008-08-22 21 43 37 瞬断に悩む者の一人でして、このサイトを拝見して感激しております。ただ、Mayonnaiser001+pluginsを準備しようと思いましたがぽりごんさんのHPにつながりません。いかがしたものでしょうか? - Vmax 2008-08-22 10 40 54
https://w.atwiki.jp/kmpnote/pages/198.html
ダイアログ・イン・ザ・ダーク imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 開催期間 2004年07月31日(土)〜2004年09月04日(土) 1日27ユニット(1ユニット定員10名) 体験時間は約1時間 会場 梅窓院 祖師堂ホール 東京都港区南青山2丁目26-38 関連ホームページ http //www.dialoginthedark.com/contents/index.html 不意に知ったこのイベント。いや、ワークショップのようだ。つまり研究的な集会ということか?。暗闇を歩くイベント?。体験した方は大体喜んでいるものの、前情報からは不安な要素も多かった。実際は。笑顔で終わった。とてもオススメなイベントだ。 暗闇が生む孤独感は深い。しゃべっていないと自分自身が消えてしまうようだった。世界とは自分が生み出しているのだと痛感。その認識の多くを視覚が負っていたこともまた衝撃。 しかし暗闇で順応していくこと、希望を感じさせることをきっとこのイベントは教えたかったのではないか。極小のスペースで無限の広がりを錯覚していく前半から、壁をさわらずして空間の大きさを感じられる後半の変化は大きい。 さらにコミュニケーションが救ってくれることの大きさ。見知らぬ方と声を掛け合い、お互いをナビゲーションする。目前の息遣いを感じ、匂いを探る。 今日は有難うございました!。と声を掛け合って終了。2004-08-14/k.m コメントをぜひ りえ こんばんわー。私は今月末に行く予定です。ワクワク。2004-08-19 (木) 20 37 28 k.m あー。是非感想聞かせてくださいね。2004-08-19 (木) 22 46 52 名前 コメント カテゴリー 展示 関連リンク
https://w.atwiki.jp/99772200/pages/224.html
澪標深空 澪標高海 回避 深空, 惨めだ 高海, 惨めだ 深空, 弱い 高海, 弱い 回避 深空, 無駄だ 高海, 無駄だ ダメージ小 深空, きっとご名答だ 高海, きっとご名答だ ダメージ小 深空, ぐっ――! ダメージ中 深空, あんたは僕の意思で僕の為に殺してやる 高海, あんたは僕の意思で僕の為に殺してやる ダメージ大 深空, 何者だ――貴様! 高海, 何者だ――貴様! ダメージ大 システム,「な――なんなんだお前らは!」 射程外,- 破壊 深空, 次は――こうはいかない 高海, 次は――こうはいかない システム, 「殺す」 システム, 「必ず殺す」 システム, 「左右同時に二回殺す」 攻撃 深空, 僕はただ殺すだけだ 高海, 僕はただ殺すだけだ システム, 「殺し屋だから――」 攻撃 深空, それでは鐘を鳴らし鎌を磨こう 高海, それでは鐘を鳴らし鎌を磨こう システム, 「お命頂戴、仕る」 攻撃 深空, 枷鎖―― 高海, ――真風 深空, 川遠―― 高海, ――境域 攻撃 システム, 「左右同時に死んでしまえ――」 深空, 家桜―― 高海, ――端敵 深空, 退隠―― 高海, ――柴車 深空, 彫板――! 高海, ――泥眼! 攻撃 高海, ――説道 高海, ――中鉋! 攻撃 深空, 乖違―― 高海, ――泡飴 深空, 矮樹―― 高海, ――清逸 攻撃 深空, 焼鎌―― 高海, ――水鶏 深空, 陰圧―― 高海, ――便巧 攻撃 深空, 羅織―― 高海, ――絵扇 深空, 田鶉―― 高海, ――蛇籠 深空,八咫――! 高海,――堕獄! 攻撃(対瀕死) 深空, さて 高海, さて 深空, ――呆気なくはあるが他愛なくもあるが、さっさとケリをつけてしまうことにしよう 高海, ――呆気なくはあるが他愛なくもあるが、さっさとケリをつけてしまうことにしよう #とりあえずダイアログデータだけ #一応システムとしたんですがなんか良い方法無いですかね #というかそもそも需要無いかもという悪寒 # 攻撃メッセは合体技でも捏造すれば使い道が # まあ普通に合体ユニット用意したっていいんですが # あと二人同時に喋る部分は深空&高海っていうノンパイを用意すれば良いのでは # おっと、既にそういうユニットでしたか # 失礼しました上半分は忘れてください
https://w.atwiki.jp/kouraku_tiritomado/pages/20.html
秀丸パイプとVBSを使って、マクロから「ファイルを開く」ダイアログを表示してみます。 標準入力を解析して、複数のパラメータを受け渡しするサンプルにもなっています。 使っている UserAccounts.CommonDialog が WindowsXP 専用であるため、他の環境では動かないそうです(Vista も不可!)。また、ダイアログ操作中は秀丸本体が軽くフリーズ状態となり、我ながら微妙なサンプルになっております。 show_opendialog.vbs - UserAccounts.CommonDialog.ShowOpen() サンプル Option Explicit 【初期処理】 Dim arg, arg_v, objDialog Set objDialog = CreateObject( UserAccounts.CommonDialog ) 【標準入力を解析して動作設定】 arg_v = Split(WScript.StdIn.ReadLine, , ) For Each arg In arg_v Dim argKey argKey = Split(Trim(arg), = ,2) argKey(0) = LCase(argKey(0)) Select Case argKey(0) Case filter objDialog.Filter = argKey(1) Filter プロパティの設定 Case filterid objDialog.FilterIndex = argKey(1) FilterIndex プロパティの設定 Case dir objDialog.InitialDir = argKey(1) InitialDir プロパティの設定 Case fname objDialog.FileName = argKey(1) FileName プロパティの設定 End Select Next 【実行とエコーバック】 If objDialog.ShowOpen 0 Then Wscript.Echo objDialog.FileName End If WScript.Quit UserAccounts.CommonDialog 自体の説明は、いつものようにサックリ飛ばします。基本的な使い方はこちらをご覧になるか、検索すれば他のサンプルがヒットすることでしょう。 【初期処理】 CreateObject でコモンダイアログを生成しています。(これがXP専用なのがネックです…) 【標準入力を解析して動作設定】 今回のハイライトです。標準入力に複数のパラメータを送るサンプルになっています。 ここでは、キーと値をセットにして、一行に複数の値が並んだ書式を解析しています。PerlなどでURLエンコードをやったことのある人はピンときたかもしれませんが、次のような書式を想定しています。 キー=値,キー=値,...,キー=値 今回は、キーに指定された項目別に UserAccounts.CommonDialog に設定を与えたいので、具体的にはこんな書式を解析できると便利ですね。 filter=Filterの設定値,filterid=FilterIndexの設定値,...,fname=FileNameの設定値 コードの方はまず、最初の Split() で "," ごとに分解し、"キー=値" の文字列グループに換えてから For Each 構文に渡しています。そして For Each ループ中で受け取った個別の "キー=値" について、もう一度 "=" を区切りに使って Split() し、キーと値を分離しています。そこから先は簡単で、Case 構文を使ってキーごとに処理をふりわけています。Trim() と LCase() についは、なんとなくのオマケ機能です。カンマ前後の空白切除や、”キーについては大文字小文字を不問”にした方が便利そうなんじゃないかなぁ、と。 "キー=値" を並べるやり方は順番や個別省略が自在で、プログラム的にも短くカスタマイズが簡単です。スクリプトには都合の良いテクニックですね。 【実行とエコーバック】 ダイアログを表示し、ファイルが選択されたら標準出力にエコーして、キャンセル時にはなにも出力せず終了します。 秀丸パイプを使ったマクロからの呼び出し loaddll HmPipe.hmf ; message dllfuncstr( HmPipeRun , Filter=All Files|*.*,Dir=C ¥¥,fname=TestView , cscript.exe , //nologo show_opendlg.vbs ); freedll; endmacro; 設定を施してスクリプトを呼び出しています。フィルターは All Files、最初に開く場所を C ¥ に設定し、デフォルトのファイル名を "TestView" としています。 実行結果 【注意】 なお秀丸パイプ作動中は制御がそっちに移りっきりなので、ダイアログ選択中は秀丸がフリーズしてしまいます。このダイアログに親ウィンドウとして秀丸を登録する、手軽な方法でもあればどうにかなりそうですが、どうしても本格的なハックになりそうです。秀丸としても DLL 関数がビジーな状態までは意識していないでしょうから、ここはもう本家 run 命令の標準入出力サポートを信じて待つしかありません。 参考 MicrosoftTechNet / Hey, Scripting Guy! - ファイルを選択するためのダイアログ ボックスを表示する方法はありますか さらに詳しいフィルター設定など、マイクロソフト純正のサンプルが載っています。